home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / CREPACK.PRG < prev    next >
Text File  |  1986-10-06  |  739b  |  32 lines
  1. * CREPACK
  2. * CLEAN UP CUSTOMER FILE BY REMOVING DELETED RECORDS AND REGENERATING INDEXES
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Customer Information System File Clean Up <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM PERMANENTLY REMOVES RECORDS FLAGGED FOR DELETION FROM THE"
  18. @ 16,1 SAY ;
  19. "CUSTOMER FILE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS REPACK =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN CUSTOMER FILE WITH ALL INDEXES, THEN REPACK
  27. USE CUSTOMER INDEX NAME, COMPANY, ZIP
  28. PACK
  29. REINDEX
  30. CLEAR
  31. RETURN
  32.